10 OPEN1,8,15:M$=CHR$(0)
20 OPEN2,8,2,"#"
30 INPUT"T,S TO READ";T,S
50 PRINT#1,"M-W"+CHR$(11)+CHR$(0)+CHR$(2)+CHR$(T)+CHR$(S)
70 PRINT#1,"M-W"+CHR$(2)+CHR$(0)+CHR$(1)+CHR$(128)
100 PRINT#1,"M-R"+CHR$(2)+CHR$(0)+CHR$(1)
110 GET#1,A$:IFASC(A$+M$)>127THEN100
120 PRINT"STATUS="ASC(A$+M$)
130 PRINT#1,"M-R"+CHR$(188)+CHR$(1)+CHR$(2)
140 GET#1,A$:PT=ASC(A$+M$)
150 GET#1,A$:PS=ASC(A$+M$)
170 PRINT#1,"M-R"+CHR$(239)+CHR$(0)+CHR$(1)
180 GET#1,A$:SI=ASC(A$+M$)
190 PRINT"PT,PS,SIDE";PT,PS,SI
200 PRINT
220 PRINT#1,"M-R"+CHR$(0)+CHR$(3)+CHR$(0)
260 FORX=0TO15:FORY=1TO16
290 GET#1,A$:PRINTA$;
310 NEXT:PRINT: NEXT